home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / comm / mail / iris.lha / Iris / Poll.irx < prev    next >
Text File  |  1998-03-18  |  378b  |  13 lines
  1. /* REXX script to check periodically for new mail */
  2. /* $VER: Poll.irx V1.1 (supplied with Iris V1.2b) */
  3.  
  4. if ~show('l','rexxsupport.library') then addlib('rexxsupport.library',0,-30,0)
  5. do while show('P','IRIS') & showlist('H','TCP')
  6.    address IRIS
  7.    GETMAIL
  8.    SENDMAIL IMMED
  9.    address command
  10.    WAIT 3 MINS
  11. end
  12. say 'Poll.irx ending - TCP/IP and/or Iris is not available.'
  13.